home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / coreaids.arc / SCRN_SAV.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-20  |  834 b   |  40 lines
  1. ;    DESC:    Saves 16K screen from video memory                   V1.00
  2. ;    SAMPLE:    SCRN_SAV
  3. ;    ##################################################################
  4.  
  5. SCREEND Segment Para Common 'DATA'
  6.     DB    16384 DUP(0)
  7. SCREEND Ends
  8.  
  9.     Extrn    PUSHALL:Near
  10.     Extrn    POPALL:Near
  11.     Extrn    SCRN_TYP:Near
  12.     Extrn    MOVE_BYT:Near
  13.  
  14. SCRN_SAC    Segment
  15.     Assume    CS:SCRN_SAC,DS:SCREEND
  16.     Public    SCRN_SAV
  17.  
  18.     Include    CALLM.MAC
  19.  
  20.                         ;notice.
  21.     DB    'SCRN_SAV - V1.00, Copyright 1987, CoreTechs   ',0DH,0AH
  22.  
  23. SCRN_SAV    Proc    Near            ;saves video screen memory.
  24.  
  25.     Call    PUSHALL                ;save registers.
  26.  
  27.     Call    SCRN_TYP            ;determine if color or b&w.
  28.     Pop    AX                ;recover screen offset.
  29.  
  30.     Mov    BX,SCREEND            ;setup workarea.
  31.     Mov    DS,BX
  32.  
  33.     Callm    MOVE_BYT,<AX,0,SCREEND,0,16384>,;store video screen.
  34.     Call    POPALL
  35.     Ret
  36. SCRN_SAV    Endp
  37.  
  38. SCRN_SAC    Ends
  39.     End
  40.